home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 4 / developer source - volume 4.iso / parad / feb94 / horo19.gif < prev    next >
Graphics Interchange Format  |  1996-07-02  |  35KB  |  600x354  |  4-bit (15 colors)
Labels: text | screenshot | display | software | number | font
OCR: MAINFORM :: #Form1 :: menuAction method menuAction(var eventInfo MenuEvent) var openForms Array[] String endvar if not eventInfo.isPreFilter() then if eventInfo.id() = MenuControlClose then ; This form will itself appear in the array of open forms, ; so we will test whether there are two or more open forms. enumFormNanes (openForns) if openForms.size() > 1 then msgInfo("Sorry", "Forms are still open on the desktop.\n"+ "You cannot close this form") disableDefault return endIf endif endIf endMethod Edit Line: 7 Col: 1